home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / dpat / dpat129 / amighpv2a / examples / getadr.s < prev    next >
Text File  |  1977-12-31  |  248b  |  22 lines
  1.     include    entries.i
  2.     con(5)    DOCODE
  3. Debut    con(5)    Fin-Debut
  4.  
  5. ADR.OBJ    equ    $800F5
  6.  
  7.  
  8.     GOSBVL    $0679B
  9.     D0=(5)    $800F5
  10.     A=DAT1    A
  11.     DAT0=A    A
  12.     R0=A    A
  13.     GOSBVL    $067D2
  14.     GOSBVL    $06537
  15.     GOSBVL    $0679B
  16.     LAHEX    $800F5
  17.     D0=A
  18.     GOSBVL    $067D2
  19.     A=DAT0    A
  20.     D0=D0+    5
  21.     PC=(A)
  22. Fin